home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MATH.ARC / BASIC BRICK (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  634 b   |  15 lines
  1. 1 REM FOR INTEGERS A,B,C,D,E,F,G: A2+B2=D2; A2+C2=E2; B2+C2=F2; A2+B2+C2=G2
  2. 2 G=64:DIMAF(500,1):TI$="000000
  3. 3 G[178]G[170]1:G2[178][181](G[172]G):AF[178][181]([186](G2[172]2[173]3)):[153]"LOAD"G"CMD"AF;TI$:F[178]G:I[178].:NX[178]1
  4. 4 F[178]F[171]1:[145][171](F[177][178]AF)[137]5:[145][171](I[179]NX)[137]3:[137]9
  5. 5 A2[178]G2[171][181](F[172]F):A[178][181]([186](A2)):[153]F"CMD"A"CMD ON":[139][181](A[172]A)[179][177]A2[137]4
  6. 6 [139]NX[178]2[167]NX[178]3:AF[178][181]([186](G2[173]2)):[153]""G"CMD"AF"CMD OPEN";
  7. 7 [139]NX[178]1[167]NX[178]2:AF[178][181]([186](G2[171][181](F[172]F)[173]2)):[153]""G"CMD"AF"CMD OPEN";
  8. 8 [153]:AF(I,.)[178]A:AF(I,1)[178]F:I[178]I[170]1:[137]4
  9. 9 [153]:I[178]I[171]1:[129]AI[178].[164]I[171]2:A[178]AF(AI,.):A2[178][181](A[172]A)
  10. 10 [129]BI[178]AI[170]1[164]I[171]1:B[178]AF(BI,.):B2[178][181](B[172]B)
  11. 11 [129]CI[178]BI[170]1[164]I:C[178]AF(CI,.):[153]"SYS"A"CMD"B"CMD"C:[139]A2[170]B2[170][181](C[172]C)[178]G2[137]14
  12. 12 C[178]AF(CI,1):[153]A"CMD"B"CMD"C"OPEN":[139]A2[170]B2[170][181](C[172]C)[178]G2[137]14
  13. 13 [130]:[130]:[130]:[137]3
  14. 14 [153]"DEF"A"CMD"B"CMD"C"CMD"G"OPEN":[128]
  15.